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Problem 

When closing out the current period with 0.00 balance on returned 
merchandise, adds a finance charge and ages accounts that are not overdue. 


Solution 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backi^ oc^y of the 
program. 

2. In BASIC load the program by typing IiDAD"FROCBSS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners nmnual) 
*** NOTE VERSICMJ 3.0 OtHLX 

Old Line: 540 PRINT@576,"imXJNr : ";CVI(DC)$);: 

IP (CVD (DB$ )=0ANDASC (DH$ )=iJ )0RASC (DF$ )=7IHEN57J?ELSEX3OSOB1290 :QOSOB910 

New Line: 540 PRINr@576,"A3000Nr : ";CVI(DD$);: 

IF (CVD(DB$ )=J2(0RASC(DF$ )=7raQ457ia(EI£BQOS(;Bl29j3 :Q0SUB9U? 

Old Line: 910 AB«=PB#:GOSUB1480 
New Line: 910 AB#=IB#:FF#=0# 

Old Line: 940 ABiNAB#+FC#:IFFC#>0IHENQOS(JB1450 

New Line: 940 GOSUB1480:AB«=AB#-I-FC#:IFFC#>0IHEN3OSUB1450 


Old Line: 1460 IPRINmB(5)\^$;'l!AB(16)VD!;'IAB(24)(JSINGL2$; 
VH#; :IfRINirrAB(50)USINGL2$;AB«:RET(JRN 
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New Line: 1460 LPRIl'JTTABC 5)VC$ ;TAB( 16)VD! ;TAB( 24 )USINGL2$ ;VH#;: 
IPRINTTAB( 50)USIISIGL2$ ;AB# :FF#=FF#- (VH#* (VH#<0)) :RETURN 

Old Line: 1480 RQ#=INT(CDBL(RQ)*1000D0+.5D0)/1000D0: 
FI#=INT(CDBL(PC!)*1000000+.5C0 )/10000q0: 

PC#=0:IFSGN(PB#+PR#)=1ANDPC$="Y"THEN 

R:#=INT((PB#+ro#)*FI#*100D0+.5)/100D0:FA#=FA#+FC# 

New Line: 1480 RQ#=INT(CDBL(RQ)*1000C0+.5D0)/1000D0: 

FI#=INT(CDBL(rc!)*1000000+.5D0)/10000D0: 

PC#=0: IFSGN (PB#+FF#+PR# )=1ANDPC$=" yiHEN 

EC#=INT( (PB#+FF#+PR#)*FI#*100D0+.5)/100D0:FA^f=FA#+FC# 


*** 


NOTE PRIOR TO 3.0 


Old Line: 590 PRINT@576,"ACOOUNT : ”;CVI(DD$);: 

IF (CVD (DB$ )=0ANDASC (DH$ )=0 )(DRASC (DF$ )=7'IHP]N670ELSEX3OSUB1440: 

AB#=PB#:QOSUB1660 

New Line: 590 PRINT@576,"ACOOUNT : ";CVI(DD$);: 

IF (CVD (DB$ )=0ORASC (DF$ )=7THEN670ELSBQOSUB14 40: 

AB#=PB#:FF#=0# 

Old Line: 630 ABfr=AB#+PC#:IFPC#>0'IHENGOSOBl630 

New Line: 630 QOSUBl660:AB#=AB#+FC#:IFFC#>0’IH©gGOSUBl630 

Old Line: 1640 LPRINTIAB(5)VC$;TAB(16)VD!;TAB(24)U3INGL2$;VH#;: 
LPRINTrAB( 50 )aSIf«3L2$; AB# :REIURN 

New Line: 1640 II>RINTrAB(5)VC$;TAB(16)VD! ;'IAB(24)USINGL2$;VH#;: 
IiPRINTrAB( 50 )USINGL2$ ;AB#:FF#=EF#- (VH#* (VH#<0)) :RETURN 

Old Line: 1660 RQ#=LNT(CDBL(RQ)*1000D0+.5C0)/1000D0: 

FI#=INT(CDBL(PC!)*10000D0+.5D0)/10000D0:FC#=0: 

IFSGN(PB#+PR#)=1ANDFC$="Y"IHENPC#=INT((PB#+PR#)*FI#*100D0)/100D0: 
FA#=FA#+PC# 

New Line: 1660 RQ#=INT(CDBL(RQ)*100000+.5E0)/1000D0: 

FI#=INT(CDBL(PC! )*10000D0+.5i:^)/10000D0:FC#=0: 

IFSGN (PB#+FF#+PR#)=1ANDPC$=" Y"'IHENPC#=INr ((PB#+FF#+PR#) *FI #* 100D0)/ 
100D0:FA#=FA#+PC# 

4. Type SAVE"PR(XIESS" to save the changes in the program. 

5. At IRSDOS READY, itiake a backup copy of the corrected diskette. 









